Buffalo Sabres 2001-2002 Promotional CD/Sabres.iso/pc/hilit.dxr/00039_Exchange QT Movie.ls

Text File | 2001-09-05 | 1.0 KB | 41 lines

property pSp, Mem, pSprOfMovie, pThePath, pEventType

on getPropertyDescriptionList
  d = [:]
  addProp(d, #pEventType, [#default: "MouseClick", #format: #string, #range: ["MouseClick", "MouseOver", "Automatic"], #comment: "Choose Event Type"])
  addProp(d, #pSprOfMovie, [#default: 1, #format: #integer, #comment: "Sprite Channel of QT Movie"])
  addProp(d, #pThePath, [#default: "QT:", #format: #string, #comment: "The FolderPath & Name"])
  return d
end

on prepareFrame me
  if pEventType = "Automatic" then
    path = the moviePath & pThePath
    member(Mem).fileName = path
  end if
end

on beginSprite me
  pSp = me.spriteNum
  Mem = the memberNum of sprite pSprOfMovie
end

on mouseEnter me
  if pEventType = "MouseOver" then
    path = the moviePath & pThePath
    member(Mem).fileName = path
  end if
end

on mouseUp me
  if pEventType = "MouseClick" then
    path = the moviePath & pThePath
    member(Mem).fileName = path
  end if
end

on getBehaviorDescription
  description = "Exchange QuickTime Movie."
  return description
end